﻿Imports Sy.Data

Public Class C_Config_Map
    Inherits SqlObject(Of C_Config_Map)
    Public Shared Property Instance As C_Config_Map
    Public Sub New()
    End Sub
    Public Shared Sub Init()
        Dim ms = Load()
        If ms.Length = 0 Then
            Dim m As New C_Config_Map
            Instance = m
            Instance.ChecksDic = New Dictionary(Of String, Boolean)
            m.Add()
        Else
            Instance = ms(0)
        End If
    End Sub
    Public ChecksDic As Dictionary(Of String, Boolean)
End Class
